home *** CD-ROM | disk | FTP | other *** search
/ Linux Cubed Series 3: Developer Tools / Linux Cubed Series 3 - Developer Tools.iso / devel / lang / fortran / f2c-stab.9 / f2c-stab / f2c-stabs / fts-f-unsplit < prev    next >
Encoding:
AWK Script  |  1996-02-11  |  1.3 KB  |  52 lines
  1. #!/usr/bin/awk -f
  2. # -*- awk -*-
  3. #
  4. # $Header: /usr/bfr/src/test/RCS/fts-f-unsplit,v 1.1 1995/01/18 17:39:14 abel Exp $
  5. #
  6. #********************************************
  7. #
  8. # unsplit FORTRAN lines
  9. #
  10. #********************************************
  11. #
  12. # Written by Harvey J. Stein, 1994
  13. # Copyright (C)1994 Harvey J. Stein
  14. #
  15. # Rewritten by Alexander L. Belikoff, 1994
  16. # Copyright (C)1994 Alexander L. Belikoff
  17. #
  18. # This program is free software; you can redistribute it and/or modify
  19. # it under the terms of the GNU General Public License as published by
  20. # the Free Software Foundation; either version 2 of the License, or
  21. # (at your option) any later version.
  22. #
  23. # This program is distributed in the hope that it will be useful,
  24. # but WITHOUT ANY WARRANTY; without even the implied warranty of
  25. # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  26. # GNU General Public License for more details.
  27. #
  28. #********************************************
  29. #
  30. # $Log: fts-f-unsplit,v $
  31. # Revision 1.1  1995/01/18  17:39:14  abel
  32. # Initial revision
  33. #
  34. #
  35. #********************************************
  36.  
  37.  
  38. BEGIN { line = "" }
  39. $0 ~ /^     [^ \t]/ {
  40.    line = (line substr($0, 7))
  41. }
  42. $0 !~ /^     [^ ]/ {
  43.    if (line != "") print line
  44.    line = $0
  45. }
  46.  
  47. END {
  48.    if (line != "") print line
  49. }
  50.  
  51. # end of $Source: /usr/bfr/src/test/RCS/fts-f-unsplit,v $
  52.